home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / DEMOS.ARC / -KRAZY WRECKER (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  767b  |  19 lines
  1. 2 DIM L(20),D(20)
  2. 5 POKE53281,0:POKE53280,12
  3. 7 GOSUB 1000
  4. 10 PRINT"[147][142][151][154][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]";
  5. 20 FORA=0TO20:PRINT"[214][146][158]  O   O   O   O   O   O   O   O   O   [154][214]";:NEXT
  6. 30 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]";
  7. 40 K=1524:Y=40:X=1
  8. 100 IFPEEK(K+X+Y)=32THENPOKEK,32:K=K+X+Y:POKE54272+K,2:POKEK,87:GOTO100
  9. 120 IFPEEK(K+X)<>32THENX=-X:GOTO150
  10. 130 IFPEEK(K+Y)<>32THENY=-Y:GOTO150
  11. 140 X=-X:Y=-Y
  12. 150 FORA=1TO20:IFPEEK(K+L(A))<>214THENPOKE54272+K+L(A),13:POKEK+L(A),D(A)
  13. 160 NEXT
  14. 170 FORA=1TO20:IFPEEK(K+L(A))<>214THENPOKEK+L(A),32
  15. 180 NEXT:GOTO100
  16. 1000 FORA=1TO20:READL(A):NEXT:FORA=1TO20:READD(A):NEXT:RETURN
  17. 2000 DATA-81,-80,-79,-42,-41,-40,-39,-38,-2,-1,1,2,38,39,40,41,42,79,80,81
  18. 2010 DATA108,66,123,108,77,66,78,123,67,67,67,67,123,78,66,77,108,123,66,108
  19.